home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON01 / ACT01A / L01A2C.DIR / Internal_1.ls < prev    next >
Encoding:
Text File  |  2003-04-21  |  343 b   |  18 lines
  1. on prepareMovie
  2.   positionSprite([2, 3])
  3. end
  4.  
  5. on positionSprite sprList
  6.   repeat with spr in sprList
  7.     theLoc = (the member of sprite spr).regPoint
  8.     set the loc of sprite spr to 2 * theLoc
  9.   end repeat
  10.   updateStage()
  11. end
  12.  
  13. on setregpoint
  14.   repeat with i = 1 to 75
  15.     member(i, "draggablesSwitch").regPoint = point(0, 0)
  16.   end repeat
  17. end
  18.